﻿Imports System

Namespace System.Workflow.ComponentModel
    <Serializable> _
    Friend MustInherit Class SchedulableItem
        ' Methods
        Protected Sub New(ByVal contextId As Integer, ByVal activityId As String)
            Me.contextId = contextId
            Me.activityId = activityId
        End Sub

        Public MustOverride Function Run(ByVal workflowCoreRuntime As IWorkflowCoreRuntime) As Boolean


        ' Properties
        Public ReadOnly Property ActivityId As String
            Get
                Return Me.activityId
            End Get
        End Property

        Public ReadOnly Property ContextId As Integer
            Get
                Return Me.contextId
            End Get
        End Property


        ' Fields
        Private activityId As String
        Private contextId As Integer = -1
    End Class
End Namespace

